(*let _ = Callback.register "crypt_cesar" Cesar.crypt

let _ = Callback.register "decrypt_cesar" Cesar.decrypt *)

let _ = Callback.register "crypt_rsa" Rabin.cryptrsa

let _ = Callback.register "decrypt_rsa" Rabin.decryptrsa

let _ = Callback.register "key_generate" Rabin.key_generate
